VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmNewClass 
   Caption         =   "Add Class"
   ClientHeight    =   4470
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5655
   OleObjectBlob   =   "frmNewClass.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmNewClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public ClassName As String
Public AddToFactory As Boolean
Public TestClassRequired As Boolean
Public TestAndAppClasses As Boolean

Private Sub cmdCancel_Click()
    ClassName = ""
    Hide
End Sub

Private Sub cmdOK_Click()

    ClassName = Trim(txtClassName.Text)
        
    AddToFactory = chkAppFactoryRequired.Value
    TestClassRequired = chkTestClassRequired.Value
    TestAndAppClasses = chkTestAndAppClasses.Value
    Hide
End Sub

Private Sub UserForm_Activate()

    lblMsg.caption = _
      "Enter the name for the new class to be created in your project and/or its test project. " _
    & "If you require a test class, one will be created in the test project, named as " _
    & "your new class prefixed with 'test_'. " _
    & "If you're just looking for a test class, uncheck 'Also Create App Class'. " _
    & "Regarding App Class Factory: Excel doesn't allow worksheets (such as our test app) " _
    & "to create instances of classes in other workbooks. Therefore an app may need a Factory " _
    & "object to pass internally-created instances across worksheet boundaries for, e.g. testing."

End Sub

